program PowerSpeedTest
	implicit none
	integer:: nC1, nC2, nCR, nCM
	double precision:: dR 
	integer:: i
	integer*8:: nStep = 5000000

	print *, "nStep = ", nStep

	call system_clock( nC1, nCR, nCM )
	do i = 1, nStep
		dR = (3.5d0) ** ( 10.1d0 )
	end do	
	call system_clock( nC2, nCR, nCM )
	print *, dble(nC2-nC1) / nCR

	call system_clock( nC1, nCR, nCM )
	do i = 1, nStep
		dR = (3.5d0) ** ( -10d0 )
	end do	
	call system_clock( nC2, nCR, nCM )
	print *, dble(nC2-nC1) / nCR

	call system_clock( nC1, nCR, nCM )
	do i = 1, nStep
		dR = 1d0 / (3.5d0) ** ( 10 )
	end do	
	call system_clock( nC2, nCR, nCM )
	print *, dble(nC2-nC1) / nCR


	call system_clock( nC1, nCR, nCM )
	do i = 1, nStep
		dR = (3.5d0) ** ( 10 )
	end do	
	call system_clock( nC2, nCR, nCM )
	print *, dble(nC2-nC1) / nCR

	call system_clock( nC1, nCR, nCM )
	do i = 1, nStep
		dR = 3.5d0 * 3.5d0 * 3.5d0 * 3.5d0 * 3.5d0 * &
				 3.5d0 * 3.5d0 * 3.5d0 * 3.5d0 * 3.5d0
	end do	
	call system_clock( nC2, nCR, nCM )
	print *, dble(nC2-nC1) / nCR


end program
